unit uFrmModal;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, uFrmRoot, ExtCtrls, cxGraphics, cxLookAndFeels, cxLookAndFeelPainters,
  Menus, StdCtrls, cxButtons, ActnList, cxControls, cxContainer, cxEdit,
  dxSkinsCore, dxSkinsDefaultPainters, cxTextEdit;

type
  TFrmModal = class(TFrmRoot)
    pnlClient: TPanel;
    pnlBottom: TPanel;
    btnOk: TcxButton;
    btnCancel: TcxButton;
    bvl1: TBevel;
    actlst1: TActionList;
    actExit: TAction;
    procedure actExitExecute(Sender: TObject);
    procedure DoKeyPress(Sender: TObject; var Key: Char);
  private

  public

  end;

var
  FrmModal: TFrmModal;

implementation

{$R *.dfm}

procedure TFrmModal.actExitExecute(Sender: TObject);
begin
  Close;
end;

procedure TFrmModal.DoKeyPress(Sender: TObject; var Key: Char);
begin
  if Key = #13 then
  begin
    Key := #0;
    Perform(WM_NEXTDLGCTL, 0, 0);
  end;
end;

end.
